home *** CD-ROM | disk | FTP | other *** search
/ EROS 2 / EROS 2.iso / mac / EROS vol.2 / EROS vol.DXR / 00647.ls < prev    next >
Encoding:
Text File  |  1995-12-20  |  1.6 KB  |  72 lines
  1. on volzero
  2.   set the volume of sound 1 to 0
  3.   set the soundLevel to 0
  4.   uncheck()
  5.   set the checkMark of menuItem 1 of menu "volume" to 1
  6. end
  7.  
  8. on volone
  9.   set the volume of sound 1 to 40
  10.   set the soundLevel to 1
  11.   uncheck()
  12.   set the checkMark of menuItem 2 of menu "volume" to 1
  13. end
  14.  
  15. on voltwo
  16.   set the volume of sound 1 to 80
  17.   set the soundLevel to 2
  18.   uncheck()
  19.   set the checkMark of menuItem 3 of menu "volume" to 1
  20. end
  21.  
  22. on volthree
  23.   set the volume of sound 1 to 120
  24.   set the soundLevel to 3
  25.   uncheck()
  26.   set the checkMark of menuItem 4 of menu "volume" to 1
  27. end
  28.  
  29. on volfour
  30.   set the volume of sound 1 to 160
  31.   set the soundLevel to 4
  32.   uncheck()
  33.   set the checkMark of menuItem 5 of menu "volume" to 1
  34. end
  35.  
  36. on volfive
  37.   set the volume of sound 1 to 200
  38.   set the soundLevel to 5
  39.   uncheck()
  40.   set the checkMark of menuItem 6 of menu "volume" to 1
  41. end
  42.  
  43. on volsix
  44.   uncheck()
  45.   set the checkMark of menuItem 7 of menu "volume" to 1
  46.   set the volume of sound 1 to 240
  47.   set the soundLevel to 6
  48. end
  49.  
  50. on volseven
  51.   set the volume of sound 1 to 255
  52.   set the soundLevel to 7
  53.   uncheck()
  54.   set the checkMark of menuItem "volume 7" of menu "volume" to 1
  55. end
  56.  
  57. on uncheck volume
  58.   repeat with i = 1 to 7
  59.     set the checkMark of menuItem i of menu "Volume" to 0
  60.   end repeat
  61. end
  62.  
  63. on xxxx
  64.   set the soundLevel to 4
  65.   beep()
  66.   set the checkMark of menuItem "LOUD" of menu "VOLUME" to 0
  67.   set the checkMark of menuItem "MEDIUM" of menu "VOLUME" to 1
  68.   set the checkMark of menuItem "SOFT" of menu "VOLUME" to 0
  69.   set the checkMark of menuItem "MUTE" of menu "VOLUME" to 0
  70.   go("Stay")
  71. end
  72.